/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_7 / issue_08 / basicforum / RO3_Presen

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 dd 20 a4 52 | 4f 33 5f 50 72 65 73 65 |..... .R|O3_Prese|
|00000010| 6e 74 0d 00 14 17 ea 20 | 62 6c 6b 25 2c 6c 65 6e |nt..... |blk%,len|
|00000020| 25 2c 72 65 73 75 6c 74 | 24 0d 00 1e 3b f4 20 52 |%,result|$...;. R|
|00000030| 65 74 75 72 6e 73 20 54 | 52 55 45 20 69 66 20 52 |eturns T|RUE if R|
|00000040| 49 53 43 20 4f 53 20 33 | 20 69 73 20 70 72 65 73 |ISC OS 3| is pres|
|00000050| 65 6e 74 2c 20 6f 74 68 | 65 72 77 69 73 65 20 46 |ent, oth|erwise F|
|00000060| 41 4c 53 45 0d 00 28 36 | 62 6c 6b 25 20 3d 20 a4 |ALSE..(6|blk% = .|
|00000070| 5f 67 65 74 5f 68 65 61 | 70 28 32 35 36 29 20 20 |_get_hea|p(256)  |
|00000080| 20 20 20 3a f4 20 43 6c | 61 69 6d 20 73 6f 6d 65 |   :. Cl|aim some|
|00000090| 20 77 6f 72 6b 73 70 61 | 63 65 0d 00 32 3b ff 28 | workspa|ce..2;.(|
|000000a0| 94 53 65 74 20 52 4f 33 | 24 43 68 65 63 6b 20 59 |.Set RO3|$Check Y|
|000000b0| 95 29 20 20 20 20 3a f4 | 20 53 65 74 20 61 20 73 |.)    :.| Set a s|
|000000c0| 79 73 74 65 6d 20 76 61 | 72 69 61 62 6c 65 20 74 |ystem va|riable t|
|000000d0| 6f 20 94 59 95 0d 00 3c | 4d f4 20 54 68 65 20 6e |o .Y...<|M. The n|
|000000e0| 65 78 74 20 6c 69 6e 65 | 20 73 65 74 73 20 74 68 |ext line| sets th|
|000000f0| 65 20 73 79 73 74 65 6d | 20 76 61 72 69 61 62 6c |e system| variabl|
|00000100| 65 20 74 6f 20 94 4e 95 | 20 69 66 20 52 49 53 43 |e to .N.| if RISC|
|00000110| 20 4f 53 20 33 20 6f 72 | 20 62 65 74 74 65 72 20 | OS 3 or| better |
|00000120| 69 73 0d 00 46 12 f4 20 | 6e 6f 74 20 70 72 65 73 |is..F.. |not pres|
|00000130| 65 6e 74 2e 0d 00 50 34 | ff 28 94 52 4d 45 6e 73 |ent...P4|.(.RMEns|
|00000140| 75 72 65 20 55 74 69 6c | 69 74 79 4d 6f 64 75 6c |ure Util|ityModul|
|00000150| 65 20 33 2e 30 30 20 53 | 65 74 20 52 4f 33 24 43 |e 3.00 S|et RO3$C|
|00000160| 68 65 63 6b 20 4e 95 29 | 0d 00 5a 4f f4 20 4e 6f |heck N.)|..ZO. No|
|00000170| 77 20 77 65 20 63 68 65 | 63 6b 20 74 68 65 20 76 |w we che|ck the v|
|00000180| 61 6c 75 65 20 6f 66 20 | 74 68 65 20 73 79 73 74 |alue of |the syst|
|00000190| 65 6d 20 76 61 72 69 61 | 62 6c 65 20 62 79 20 72 |em varia|ble by r|
|000001a0| 65 61 64 69 6e 67 20 69 | 74 20 69 6e 74 6f 20 61 |eading i|t into a|
|000001b0| 20 62 75 66 66 65 72 0d | 00 64 38 c8 99 20 94 4f | buffer.|.d8.. .O|
|000001c0| 53 5f 52 65 61 64 56 61 | 72 56 61 6c 95 2c 94 52 |S_ReadVa|rVal.,.R|
|000001d0| 4f 33 24 43 68 65 63 6b | 95 2c 62 6c 6b 25 2c 32 |O3$Check|.,blk%,2|
|000001e0| 35 36 2c 30 2c 30 20 b8 | 20 2c 2c 6c 65 6e 25 0d |56,0,0 .| ,,len%.|
|000001f0| 00 6e 35 f4 20 41 64 64 | 20 73 74 72 69 6e 67 20 |.n5. Add| string |
|00000200| 74 65 72 6d 69 6e 61 74 | 6f 72 20 73 6f 20 74 68 |terminat|or so th|
|00000210| 61 74 20 42 41 53 49 43 | 20 63 61 6e 20 72 65 61 |at BASIC| can rea|
|00000220| 64 20 69 74 0d 00 78 12 | 62 6c 6b 25 3f 6c 65 6e |d it..x.|blk%?len|
|00000230| 25 20 3d 20 31 33 0d 00 | 82 31 f4 20 55 6e 73 65 |% = 13..|.1. Unse|
|00000240| 74 20 74 68 65 20 73 79 | 73 74 65 6d 20 76 61 72 |t the sy|stem var|
|00000250| 69 61 62 6c 65 20 74 6f | 20 74 69 64 79 20 74 68 |iable to| tidy th|
|00000260| 69 6e 67 73 20 75 70 0d | 00 8c 18 ff 28 94 55 6e |ings up.|....(.Un|
|00000270| 73 65 74 20 52 4f 33 24 | 43 68 65 63 6b 95 29 0d |set RO3$|Check.).|
|00000280| 00 96 13 72 65 73 75 6c | 74 24 20 3d 20 24 62 6c |...resul|t$ = $bl|
|00000290| 6b 25 0d 00 a0 18 f2 5f | 68 65 61 70 5f 72 65 6c |k%....._|heap_rel|
|000002a0| 65 61 73 65 28 62 6c 6b | 25 29 0d 00 aa 1f e7 20 |ease(blk|%)..... |
|000002b0| 72 65 73 75 6c 74 24 20 | 3d 20 94 4e 95 20 8c 20 |result$ |= .N. . |
|000002c0| 3d 20 a3 20 8b 20 3d 20 | b9 0d ff                |= . . = |...     |
+--------+-------------------------+-------------------------+--------+--------+